home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / UTILITY / DOSYSINF.M < prev    next >
Encoding:
Text File  |  1994-03-23  |  2.6 KB  |  105 lines
  1. MODULE DoSysInfo;
  2.  
  3. (*$E MOS *) IMPORT GEMDOSIO;
  4. FROM InOut IMPORT WriteString, WriteLn, Read, WriteCard, WriteHex;
  5. FROM Clock IMPORT Date;
  6. FROM TimeConvert IMPORT DateToText;
  7. FROM SysInfo IMPORT GetTOSVersion, CPU, FPU, noFPU, internalFPU, externalFPU,
  8.         FPUModel, Machine;
  9. IMPORT GEMDOS, GEMEnv, AESMisc, PrgCtrl, Directory, PathEnv;
  10.  
  11.  
  12. VAR
  13.   v,r: CARDINAL; d: Date; s,s2: ARRAY [0..255] OF CHAR; ch: CHAR;
  14.   handle: GEMEnv.DeviceHandle;
  15.   ok: BOOLEAN;
  16.  
  17. BEGIN
  18.   WriteString ('TOS ');
  19.   GetTOSVersion (v,r,d);
  20.   WriteCard (v,0);
  21.   WriteString ('.');
  22.   WriteCard (r,0);
  23.   WriteString (' / ');
  24.   DateToText (d, '', s);
  25.   WriteString (s);
  26.   WriteLn;
  27.   WriteLn;
  28.   WriteString ('GEMDOS-Version: ');
  29.   GEMDOS.Version (v);
  30.   WriteHex (v, 5);
  31.   WriteLn;
  32.   WriteLn;
  33.   WriteString ('Machine: Atari ');
  34.   CASE Machine () OF
  35.     0: WriteString ('ST')|
  36.     1: WriteString ('STE')|
  37.     2: WriteString ('TT')|
  38.   ELSE
  39.   END;
  40.   WriteLn;
  41.   WriteLn;
  42.   WriteString ('CPU: ');
  43.   WriteCard (CPU (), 0);
  44.   WriteLn;
  45.   WriteString ('FPU: ');
  46.   CASE FPU () OF
  47.     noFPU:       WriteString ('not available')|
  48.     internalFPU: WriteString ('internal (')|
  49.     externalFPU: WriteString ('external (')
  50.   END;
  51.   CASE FPUModel () OF
  52.     0: |
  53.     1: WriteString ('68881)')|
  54.     2: WriteString ('68882)')|
  55.   END;
  56.   WriteLn;
  57.   GEMEnv.InitGem (GEMEnv.RC, handle, ok);
  58.   IF NOT ok THEN WriteString ('Error on InitGEM!'); WriteLn END;
  59.   WriteLn;
  60.   (* Der 'HomePath' wird erst durch 'InitGem' gesetzt! *)
  61.   WriteString ('HomePath: '); WriteString (PathEnv.HomePath); WriteLn;
  62.   WriteString ('Current Path: '); WriteString (Directory.DefaultPath()); WriteLn;
  63.   WriteLn;
  64.   WriteString ('GEMVersion: ');
  65.   WriteHex (GEMEnv.GEMVersion(),5);
  66.   WriteLn;
  67.   WriteString ('GEM Application-ID: ');
  68.   WriteCard (GEMEnv.ApplicationID(),0);
  69.   WriteLn;
  70.   WriteLn;
  71.   WriteString ('Scrap Dir: ');
  72.   AESMisc.ReadScrapDir (s);
  73.   IF GEMEnv.GemError () THEN WriteString ('Error!'); WriteLn END;
  74.   WriteString (s);
  75.   WriteLn;
  76.   WriteLn;
  77.   WriteString ('Searching for DOSYSINF.*...');
  78.   s:= 'DOSYSINF.*';
  79.   AESMisc.ShellFind (s);
  80.   IF GEMEnv.GemError () THEN
  81.     WriteString ('  Not found!');
  82.   ELSE
  83.     WriteString ('  Found ');
  84.     WriteString (s);
  85.   END;
  86.   WriteLn;
  87.   WriteLn;
  88.   WriteString ('ShellRead...');
  89.   WriteLn;
  90.   AESMisc.ShellRead (s, s2);
  91.   IF GEMEnv.GemError () THEN
  92.     WriteString ('Error!')
  93.   ELSE
  94.     WriteString ('  cmd : ');
  95.     WriteString (s);
  96.     WriteLn;
  97.     WriteString ('  tail: ');
  98.     WriteString (s2);
  99.   END;
  100.   WriteLn;
  101.   WriteString ('End of program. Press a key. ');
  102.   Read (ch);
  103.   WriteLn;
  104. END DoSysInfo.
  105.